home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / NUMLOCK.BAS < prev    next >
BASIC Source File  |  1995-08-30  |  218b  |  12 lines
  1. 10 OPEN "NUMLOCK.COM" AS #1 LEN=1
  2. 20 FIELD #1, 1 AS KOD$
  3. 30 FOR I=1 TO 11
  4. 40 READ VERI%
  5. 50 LSET KOD$=CHR$(VERI%)
  6. 60 PUT #1
  7. 70 NEXT I
  8. 80 CLOSE
  9. 90 SYSTEM
  10. 100 DATA 184,64,0,142,216
  11. 110 DATA 128,38,23,0,223,195
  12.